15640 PRINT CHR$(7)"THIS REPORT IS TOO WIDE FOR THE MONITOR": PRINT "SCREEN. DO YOU WANT YOUR PRINTER":L$ = "ON? ": GOSUB 2510: IF NOT YES THEN POKE 34,0: GOTO 15800
15645 T = S:S = 0: GOSUB 29010:S = T: GOTO 15630
15646 HOME : PRINT : PRINT "CONTINUOUS REPORT WITHOUT SPACING":L$ = "BETWEEN THE LINES?": GOSUB 2510:LC = 0:LT = 60: IF YES = 0 THEN GOSUB 2480
15650 PRINT : INPUT "ENTER PAGE # OF FIRST PAGE -> ";R$:PAGE = VAL(R$) -1: IF PAGE <0 THEN PAGE = 0
15655 GOSUB 2100
15660 IF PF = 0 THEN GOSUB 2480
15661 TEXT : HOME : FOR I = 1 TO RH:AC(I) = 0
15662 IF K(3 *I) = 1 THEN T9 = 1
15665 NEXT I
15670 IF PF THEN GOSUB 2010
15675 GOSUB 18010
15679 LS = 1
15680 FOR J = 1 TO NR:Y = R(J)
15685 N$(Y,0) = STR$(J)
15690 IF Q$ = "ALL" THEN 15760
15695 ON HR GOTO 15705,15740
15705 IF Q$ = "@" AND LEN(N$(Y,S)) >0 THEN 15760
15710 IF LEFT$(N$(Y,S), LEN(Q$)) = Q$ THEN 15760
15715 IF K$ = "NO" THEN 15765
15720 IF K$ = "@" AND LEN(N$(Y,K)) >0 THEN 15760
15725 IF LEFT$(N$(Y,K), LEN(K$)) < >K$ THEN 15765
15730 GOTO 15760
15740 IF Q$ = "@" AND LEN(N$(Y,S)) >0 THEN 15750
15745 IF LEFT$(N$(Y,S), LEN(Q$)) < >Q$ THEN 15765
15750 IF K$ = "@" AND LEN(N$(Y,K)) >0 THEN 15760
15755 IF LEFT$(N$(Y,K), LEN(K$)) < >K$ THEN 15765
15760 GOSUB 16010
15762 IF LS = LC THEN PRINT :LS = 0
15765 IF PF <1 THEN IF LN >16 THEN GOSUB 9010: IF NOT LF AND J <NR THEN GOSUB 18010:LS = 1: GOTO 15780
15770 IF LF THEN J = NR: GOTO 15780
15775 IF J <NR AND LN >LT THEN GOSUB 18010
15779 LS = LS +1
15780 NEXT J
15785 IF LF THEN LF = 0: PRINT : GOTO 15795
15790 ON T9 GOSUB 17020
15795 PRINT : PRINT D$"PR#0"
15800 ON E GOTO 15815
15805 PRINT : PRINT "DO YOU WANT TO SAVE THE FORMAT":L$ = "FOR THIS REPORT TO DISK ": GOSUB 2510
15810 IF YES THEN E = 1: GOSUB 19010
15815 POKE 216,0: PRINT : PRINT "MORE REPORTS USING THE "RN$(NN):L$ = "FORMAT ": GOSUB 2510
15820 IF YES THEN E = 1:PAGE = 0:LC = 0: GOTO 15030
15825 GOTO 22010
16010 FOR I = 1 TO RH: ON ABS(K(3 *I)) GOTO 16100,16030
16015 IF SEP = 1 AND J < >1 AND I = 1 THEN IF LEFT$(N$(Y,K(3 *I -2)),1) < > LEFT$(N$(R(J -1),K(3 *I -2)),1) THEN PRINT